30-03-2021, 11:42
SAYIN TARUZ öncelikle yapmış olduğunuz modül için teşekkür ederim elinize sağlık
Public Function trz(alan)
For i = 1 To Len(alan)
If (Mid(alan, i, 1)) <> " " Then trz = trz & Mid(alan, i, 1)
Next
End Function
bu fonksiyonda güncelleme yapılacak bir sutunda herhangi bir veri boş ise tüm verileri siliyor acaba yardımcı olabilir misniz.
CurrentDb.Execute "update liste set [Stärken Zahnteilung] = trz([Stärken Zahnteilung])"
CurrentDb.Execute "update liste set [title] = trz([title])"
CurrentDb.Execute "update liste set [Länge] = trz([Länge])"
BU KONUDA YARDIMCI OLABİLECEK VARSA ÇOK MEMNUN OLURUM (HATA MESAJI EKTE)
Public Function trz(alan)
For i = 1 To Len(alan)
If (Mid(alan, i, 1)) <> " " Then trz = trz & Mid(alan, i, 1)
Next
End Function
bu fonksiyonda güncelleme yapılacak bir sutunda herhangi bir veri boş ise tüm verileri siliyor acaba yardımcı olabilir misniz.
CurrentDb.Execute "update liste set [Stärken Zahnteilung] = trz([Stärken Zahnteilung])"
CurrentDb.Execute "update liste set [title] = trz([title])"
CurrentDb.Execute "update liste set [Länge] = trz([Länge])"
BU KONUDA YARDIMCI OLABİLECEK VARSA ÇOK MEMNUN OLURUM (HATA MESAJI EKTE)