تحكم البداية لربط الاكسس بالعالم الحقيقي والتحكم فى البوبات والاناره " اهداء اليكم "

[سلمان الشهراني]

الله ينور عليك وسلمت يداك 

والف شكر لك

[toradora]

I cant run the file office.na in MS Access..

Can someone help me.

It is searching for Macros

[jasimhamza]

السلام عليكم ورحمة الله وبركاته

ماشاء الله للقوة إلا بالله

جزاك الله خيرا اخي الكريم على هذا العمل الرائع وجعله الله في ميزان حسناتك

أخي الكريم ماعندك قناة عاليوتيوب حبذا لو تشرح لنا هذا البرنامج فيديو بارك الله فيك

والله هذا ماكنت أبحث عنه منذ زمن

 

 

[SHEPOO]

اشكرك بشدة عي هذا الطرح الجميل انا من المهتمين بمجال الالكترونيات وكنت بدور كتيير علي حاجة زي الي حضرتك بتشرحها اتمني تعمل فيها كورس ودروس واسمح لي ان اكون من متابعينك في هذا المجال شكرا

[king5star]

في ٢٥‏/١‏/٢٠٢١ at 14:20, SHEPOO said:

اشكرك بشدة عي هذا الطرح الجميل انا من المهتمين بمجال الالكترونيات وكنت بدور كتيير علي حاجة زي الي حضرتك بتشرحها اتمني تعمل فيها كورس ودروس واسمح لي ان اكون من متابعينك في هذا المجال شكرا

شكراً اخى على هذا الاطراء الذى اسعدنى كثيراً وقريباً سيكون بها دورة ودورة اخري لعمل تطبيق لبرنامج المصمم بالاكسس لعرض التقاير على الاندرويد بتطبيق من تصميمك لا يتعدي ساعة عمل .

[NSs Sama]

Hello sir please i need your help please, Im using the same arduino code as urs and modCOMM as mudule for Msaccess, but the data is not reaching the arduino for no reasion knowing that RX and L led on arduino are blinking

Here's the VBA code Im using with my form

Private Sub Searchbox1_AfterUpdate()

    Searchlist1.Requery

End Sub

Private Sub Searchlist1_Click()
    
    With Searchlist1
        LIGNE4.Value = .column(3)
        COLONNE4.Value = .column(2)
    End With
    
End Sub

Private Sub Trouver_Click()

  Dim intPortID As Integer
  Dim lngStatus As Long
  Dim strData  As String
  Dim strError  As String

  On Error Resume Next

  intPortID = 1

  lngStatus = CommOpen(intPortID, "COM" & CStr(intPortID), "baud=9600 parity=N data=8 stop=1")
  
  If lngStatus <> 0 Then
  lngStatus = CommGetError(strError)
  MsgBox "COM Error: " & strError
  End If
  
    lngStatus = CommSetLine(intPortID, LINE_RTS, True)
    lngStatus = CommSetLine(intPortID, LINE_DTR, True)
    
  strData = LIGNE4.Value & COLONNE4.Value
  lngStatus = CommWrite(intPortID, strData)
  If lngStatus <> lngSize Then
  End If
  
  lngStatus = CommRead(intPortID, strData, 64)
  If lngStatus > 0 Then
  ElseIf lngStatus < 0 Then
  End If

    lngStatus = CommSetLine(intPortID, LINE_RTS, False)
    lngStatus = CommSetLine(intPortID, LINE_DTR, False)

  Call CommClose(intPortID)

End Sub

تم تعديل يونيو 15, 2022 بواسطه NSs Sama

[Cap Mohammed Ali]

بارك الله فيك انا كنت ببحث فى الموضوع ده وفقدت الامل انى اجد له حل 
اتمنى ان نتواصل 
Cap.Mohammed.ali9@gmail.com 
أو 01207131400